home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 4: GNU Archives / Linux Cubed Series 4 - GNU Archives.iso / gnu / binutils.7 / binutils / binutils-2.7 / gprof / bb_exit_func.c < prev    next >
Encoding:
C/C++ Source or Header  |  1996-07-04  |  2.1 KB  |  79 lines
  1. /*
  2.  * Copyright (c) 1994 David Mosberger-Tang.
  3.  *
  4.  * This is free software; you can redistribute it and/or modify it
  5.  * under the terms of the GNU Library General Public License as
  6.  * published by the Free Software Foundation; either version 2, or (at
  7.  * your option) any later version.
  8.  *
  9.  * __bb_exit_func() dumps all the basic-block statistics linked into
  10.  * the bb_head chain to .d files.
  11.  */
  12. #include <stdio.h>
  13. #include <strings.h>
  14. #include "bfd.h"
  15. #include "gmon_out.h"
  16.  
  17. /* structure emitted by -a */
  18. struct bb {
  19.     long        zero_word;
  20.     const char        *filename;
  21.     long        *counts;
  22.     long        ncounts;
  23.     struct bb        *next;
  24.     const unsigned long    *addresses;
  25. };
  26.  
  27. struct bb *__bb_head = (struct bb *)0;
  28.  
  29.  
  30. void
  31. __bb_exit_func (void)
  32. {
  33.     const int version = GMON_VERSION;
  34.     struct gmon_hdr ghdr;
  35.     struct bb *ptr;
  36.     FILE *fp;
  37.     /*
  38.      * GEN_GMON_CNT_FILE should be defined on systems with mcleanup()
  39.      * functions that do not write basic-block to gmon.out.  In such
  40.      * cases profiling with "-pg -a" would result in a gmon.out file
  41.      * without basic-block info (because the file written here would
  42.      * be overwritten.  Thus, a separate file is generated instead.
  43.      * The two files can easily be combined by specifying them
  44.      * on gprof's command line (and possibly generating a gmon.sum
  45.      * file with "gprof -s").
  46.      */
  47. #ifndef GEN_GMON_CNT_FILE
  48. #   define OUT_NAME    "gmon.out"
  49. #else
  50. #   define OUT_NAME    "gmon.cnt"
  51. #endif
  52.     fp = fopen(OUT_NAME, "wb");
  53.     if (!fp) {
  54.     perror(OUT_NAME);
  55.     return;
  56.     } /* if */
  57.     memcpy(&ghdr.cookie[0], GMON_MAGIC, 4);
  58.     memcpy(&ghdr.version, &version, sizeof(version));
  59.     fwrite(&ghdr, sizeof(ghdr), 1, fp);
  60.  
  61.     for (ptr = __bb_head; ptr != 0; ptr = ptr->next) {
  62.     u_int ncounts = ptr->ncounts;
  63.     u_char tag;
  64.     u_int i;
  65.  
  66.     tag = GMON_TAG_BB_COUNT;
  67.     fwrite(&tag, sizeof(tag), 1, fp);
  68.     fwrite(&ncounts, sizeof(ncounts), 1, fp);
  69.  
  70.     for (i = 0; i < ncounts; ++i) {
  71.         fwrite(&ptr->addresses[i], sizeof(ptr->addresses[0]), 1, fp);
  72.         fwrite(&ptr->counts[i], sizeof(ptr->counts[0]), 1, fp);
  73.     } /* for */
  74.     } /* for */
  75.     fclose (fp);
  76. } /* __bb_exit_func */
  77.  
  78.             /*** end of __bb_exit_func.c ***/
  79.